home *** CD-ROM | disk | FTP | other *** search
- # Quarterdeck ULTRAtech Inc. SLIP or PPP script
- # Michael Bryant II 10/26/95
-
- STRING username
- STRING password
- STRING IPaddress
- STRING framing
-
- # TRACE ON
-
- SetTimeout 60
-
- # Get username from access method
- CfgGetValue "Username" username
- IF result = 0 THEN
- ABORT "Can't load Username from qdeck.ini"
- ENDIF
-
- # get password from access method
- CfgGetValue "Password" password
- IF result = 0 THEN
- ABORT "Can't load Password from qdeck.ini"
- ENDIF
-
- # get framing from access method
- CfgGetValue "Framing" framing
- IF result = 0 THEN
- ABORT "Can't load Framing (SLIP or PPP) from qdeck.ini"
- ENDIF
-
- DELAY 2
-
- CommWaitFor "login"
- CommSend username
- IF framing = "MPSLIP" THEN
- CommSend ".slip%r"
- ELSE
- CommSend ".ppp%r"
- ENDIF
-
- CommWaitFor "assword"
- CommSend password
- CommSend "%r"
-
-
- IF framing = "MPSLIP" THEN
- CommWaitFor "our address is"
- CommReadIPaddr IPAddress # IP address should be next word
- CfgSetValue "IPAddress" IPaddress # store the IP address
- PRINT "IPAddress ="; IPAddress
- ENDIF
-
- DELAY 2
-
- END
-